unit uERP_ID;

interface

type
  TID = class

    {$REGION '<< Atributes >>'}

      protected var m_ID: Int64;

    {$ENDREGION}

    {$REGION '<< Methods >>'}

      {$REGION '<< Getter and Setter >>'}

        protected function GetID(): Int64;

        protected procedure SetID(const a_Value: Int64);

      {$ENDREGION}

      public constructor Create(); virtual;

    {$ENDREGION}

    {$REGION '<< Properties >>'}

      public property ID: Int64 read GetID write SetID;

    {$ENDREGION}

  end;

implementation

{$REGION '<< TID >>'}

constructor TID.Create;
begin
  inherited;

  m_ID := 0;
end;

function TID.GetID: Int64;
begin
  Result := m_ID;
end;

procedure TID.SetID(const a_Value: Int64);
begin
  m_ID := a_Value;
end;

{$ENDREGION}

end.
